(LAP SUBFUN1FOO SUBR) 
TAG1 	(CALL 0 (E SCANNER)) 
	(MOVE 1 (SPECIAL CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL CNT)) 
	(MOVE 1 (SPECIAL !SCANVAL)) 
	(PUSH P (SPECIAL CNT)) 
	(CALL 1 (E PRINC)) 
	(POP P 1) 
	(JUMPN 1 TAG1) 
	(POPJ P) 
	NIL 

(LAP FOO SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL CNT)) 
	(MOVEI 1 (QUOTE (NGBREL . FOL))) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE (SET RWW))) 
	(CALL 2 (E XCONS)) 
	(CALL 17 (E INPUT)) 
	(MOVEI 2 (QUOTE NIL)) 
	(CALL 2 (E INC)) 
	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 (SPECIAL CNT)) 
	(CALL 0 (E GCTIME)) 
	(PUSH P 1) 
	(CALL 0 (E TIME)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE ((SUBFUN1FOO) NIL))) 
	(CALL 17 (E ERRSET)) 
	(CALL 0 (E TIME)) 
	(MOVE 2 0 P) 
	(CALL 2 (E *DIF)) 
	(CALL 1 (E PRINT)) 
	(CALL 0 (E GCTIME)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E *DIF)) 
	(CALL 1 (E PRINT)) 
	(MOVE 1 (SPECIAL CNT)) 
	(CALL 1 (E PRINT)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(JRST 0 SPECSTR) 
	NIL